0 REM -------------------------------
1 REM  SYNTAX:
2 REM
3 REM  SYS53000,SPEICHERSTELLE,ZEIT,
4 REM           LAENGEDER BEWEGUNG,
5 REM           ANFANGSPOSITION
6 REM
7 REM  SYS53000,S,Z,L,A
8 REM -------------------------------
9 REM
10 FORT=53000TO53126:READQ:POKET,Q:NEXT
15 DATA32,253,174,32,138,173,32,247,183,140,76,207,141,77,207,140,94,207,141
20 DATA95,207,140,68,207,141,69,207,32,253,174,32,158,183,142,110,207,32,253
25 DATA174,32,158,183,142,71,207,142,89,207,32,253,174,32,158,183,142,66,207
30 DATA169,0,141,32,208,162,7,32,109,207,238,32,208,202,165,203,201,64,208
35 DATA45,138,208,240,162,7,32,109,207,206,32,208,202,165,203,201,64,208,27
40 DATA138,208,240,76,70,207,160,0,169,5,141,122,3,206,122,3,173,122,3
45 DATA201,0,208,246,136,208,238,96,169,0,133,198,96
50 REM ---------------------
51 REM  ULTIMA-TOOL
52 REM  BY
53 REM
54 REM  FRANK ABBING, AHAUS
55 REM ---------------------
56 REM  !! DEMONSTRATION !!
57 REM   ENDE DURCH TASTE!
58 REM ---------------------
59 GOTO65
60 FORT=1TO500:NEXT:RETURN
65 POKE53280,0:POKE53281,0:PRINT"[147][158]";
67 PRINT"[158]   [205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205][205]"
68 PRINT"  ^ ^                             ^ ^":FORT=1TO21
70 PRINT"  [194] [194] [149]ULTIMA-TOOL BY FRANK ABBING [194] [194]":NEXT:PRINT"";
72 :
75 SYS53000,53280,107,1,9:POKE53280,0
80 GOSUB60
85 :
90 SYS53000,53281,3,16,0:POKE53281,0
95 GOSUB60
100 :
105 SYS53000,53270,1,7,200:POKE53270,200
110 GOSUB60
115 :
120 SYS53000,53270,5,7,200:POKE53270,200
125 GOSUB60
130 :
135 SYS53000,53265,220,7,16:POKE53265,27
145 :
150 V=53248:FORT=0TO62:POKE704+T,255:NEXT:POKE2040,11:POKEV,73:POKEV+1,66
155 POKEV+39,7:POKEV+23,1:POKEV+29,1:POKEV+21,1
160 :
165 SYS53000,53248+39,4,1,6:POKEV+39,7
167 GOSUB60
170 :
175 SYS53000,53248+29,4,1,0:POKEV+29,1
177 GOSUB60
180 :
190 SYS53000,53248,45,175,73:GOSUB60
195 :
200 SYS53000,53249,70,127,66:POKEV+21,0:GOSUB60
205 :
210 POKE54296,15:POKE54278,240:POKE54276,17
215 SYS53000,54273,50,25,100:POKE54276,0:GOSUB60
220 :